home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1228 < prev    next >
Encoding:
Text File  |  1994-01-25  |  878 b   |  32 lines
  1.  
  2.  count _VrtOperandCount ne {
  3. count _VrtOperandCount sub {pop} repeat
  4. (operand stack was not returned to original state in User PS)
  5. makeSyntaxError
  6. } if 
  7.  _VrtDictCount countdictstack ne {
  8. countdictstack _VrtDictCount sub {end} repeat
  9. (dictionary stack were not returned to original state in User PS)
  10. makeSyntaxError
  11. } if
  12.  _VrtbadSaveCnt 0 gt 
  13. {(too many restore calls in User PS) makeSyntaxError} if
  14.  _VrtbadGSAVECnt 0 gt 
  15. {(too many grestore calls in User PS) makeSyntaxError} if 
  16.  
  17.  _VrtdidRestore 0 eq {
  18. _VrtsaveCnt 0 gt 
  19. {(missing restore call(s) in User PS) makeSyntaxError} if 
  20. _VrtgsaveCnt 0 gt 
  21. {(missing grestore call(s) in User PS) makeSyntaxError} if
  22. } if 
  23.  
  24.  BogusEPSDict /EPSError get 
  25. _VrtSaveObj2 systemdict /restore get exec
  26.  BogusEPSDict /EPSError 3 -1 roll put
  27.  
  28.  end
  29.  BogusEPSDict /EPSError get 
  30.  _VrtSaveObj1 restore
  31.  BogusEPSDict /EPSError 3 -1 roll put